4 POKE56,60:CLR 5 GOSUB 8000 10 POKE 53280,0:POKE 53281,0 20 PRINT "[147][152] [176][192][192][192][192][192][192][192][192][192][174] [208]RESS ANY KEY TO BEGIN" 30 PRINT " [221] [221]" 40 PRINT "[160][221] [176][192][192][192][192][192][192][189] [200]IGH [211]CORE:";HS 50 PRINT "[160][221] [173][192][192][192][192][192][192][174] [217]OUR [211]CORE:";SC 60 PRINT "[160][221] [221]" 70 PRINT "[160][221] [176][192][192][192][192][192][192][219][192][192][192][192][192][178][192][192][192][192][192][178][192][192][192][192][192][178][192][178][192][192][192][192][174]" 80 PRINT "[160][221] [221] [221] [221] [221] [221] [221] [221]" 90 PRINT "[160][221] [221] [176][192][192][192][192][179] [184] [221] [176][192][174] [171][192][174] [176][192][179] [221] [176][192][192][189]" 100 PRINT "[160][221] [221] [221] [221] [176][192][174] [221] [221] [221] [221] [221] [221] [221] [221] [173][192][192][174]" 110 PRINT " [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221] [221]" 120 PRINT "[176][177][192][192][177][192][177][192][192][192][174][173][192][189] [173][192][177][192][189] [173][192][189] [173][192][189] [173][192][177][192][192][192][192][189]" 130 PRINT "[221] [221] [213]SE [211][208][193][195][197] TO RAISE UMBRELLA" 140 PRINT "[221] [176][192][192][192][192][192][192][189] OR FEND OFF SHARK" 150 PRINT "[221] [173][192][192][192][192][192][192][174] [213]SE < AND > TO MOVE FROM" 160 PRINT "[221] [221] LEFT TO RIGHT" 170 PRINT "[221] [176][192][178][192][192][192][192][219][192][174] [176][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][192][178][192][192][192][178][192][192][192][174]"; 180 PRINT "[221] [221] [221] [176][192][192][179] [221] [221] [221] [176][192][192][179] [221] [221] [185] [221] [221]"; 190 PRINT "[221] [221] [221] [173][192][192][179] [173][192][189] [221] [173][192][174][221] [176][192][192][179] [221][221] [221][176][192][174][221][176][192][174][221]"; 200 PRINT "[221] [221] [171][192][192][174] [221] [176][192][174] [221] [176][192][189][221] [221] [221] [221][221] [221][221] [221][221][221] [221][221]"; 210 PRINT "[221] [221] [171][192][192][189] [221] [221] [221] [221] [173][192][192][179] [221] [221] [221][221] [221][221] [221][221][221] [221][221]"; 220 PRINT "[173][192][192][177][192][177][192][192][192][192][177][192][189] [173][192][177][192][192][192][192][177][192][189] [173][192][177][177][192][177][189] [173][177][189] [173][189]"; 230 GETA$:IFA$=""THEN230 240 POKE53281,14:POKE53280,6 245 PRINT"[147]"CHR$(142)"[144]SCORE: FISHERMEN:" 250 PRINT" [172] [146][187]" 260 PRINT" [188] [146][162][162][162][187] [172] [146][187]" 270 PRINT" [172] [146][187] [188] [146][190] [172] [146][187]" 280 PRINT" [172] [146][187] [188] [146][190] [188] [146][190]" 290 PRINT" [188] [146][190] [188] [146][190] [188] [146][190]" 300 PRINT" [188] [146][190]" 310 PRINT" [188][162][162][162][146]" 311 PRINT" [169][146][179]" 312 PRINT" [169] [146][179]" 313 PRINT" [169] [146][179]" 314 PRINT" [169] [146][179]" 315 PRINT" [169] [146][179]" 316 PRINT" [169] [146][179]" 317 PRINT" [169] [146][179]" 318 PRINT" [173][177][177][177][177][177][177][179]" 319 PRINT" [149][223] [146][169]" 320 PRINT" [146][144]"; 330 POKE2023,160:POKE2023+54272,6 340 SYS49152 350 PRINT"[144]PRESS RETURN KEY" 360 GETA$:IFA$<>CHR$(13)THEN360 370 S1=PEEK(829):S2=PEEK(830):S3=PEEK(831) 380 SC=INT(S1/16)*10+(S1AND15)+INT(S2/16)*1000+(S2AND15)*100 390 SC=SC+INT(S3/16)*100000+(S3AND15)*10000 400 IF SC>HS THEN HS=SC 410 GOTO10 1000 DATA192,000,000,224,000,000,112,000 1001 DATA000,056,000,000,028,000,000,014 1002 DATA000,000,007,000,000,003,128,000 1003 DATA001,128,000,000,000,000,000,000 1004 DATA000,000,000,000,000,000,000,000 1005 DATA000,000,000,000,000,000,000,000 1006 DATA000,000,000,000,000,000,000,000 1007 DATA000,000,000,000,000,000,000,000 1008 DATA001,128,000,003,128,000,007,000 1009 DATA000,014,000,000,028,000,000,056 1010 DATA000,000,112,000,000,224,000,000 1011 DATA192,000,000,000,000,000,000,000 1012 DATA000,000,000,000,000,000,000,000 1013 DATA000,000,000,000,000,000,000,000 1014 DATA000,000,000,000,000,000,000,000 1015 DATA000,000,000,000,000,000,000,053 1016 DATA007,000,000,063,224,000,255,248 1017 DATA000,002,000,000,002,000,000,002 1018 DATA000,000,002,000,000,002,000,000 1019 DATA002,000,000,018,000,000,012,000 1020 DATA000,000,000,000,000,000,000,000 1021 DATA000,000,000,000,000,000,000,000 1022 DATA000,000,000,000,000,000,000,000 1023 DATA000,000,000,000,000,000,000,000 1024 DATA016,000,000,056,000,000,124,000 1025 DATA000,254,000,000,158,000,000,206 1026 DATA000,000,124,000,000,000,000,000 1027 DATA000,000,000,000,000,000,000,000 1028 DATA000,000,000,000,000,000,000,000 1029 DATA000,000,000,000,000,000,000,000 1030 DATA000,000,000,000,000,000,000,000 1031 DATA000,000,000,000,000,000,000,000 1032 DATA000,000,000,000,000,000,000,000 1033 DATA000,000,000,000,000,000,000,000 1034 DATA004,000,000,012,000,000,028,000 1035 DATA000,060,001,007,255,195,014,127 1036 DATA255,031,255,255,127,255,255,056 1037 DATA127,255,003,255,195,000,000,001 1038 DATA000,000,000,000,000,000,000,000 1039 DATA000,000,000,000,000,000,000,183 1040 DATA000,000,000,000,000,000,000,000 1041 DATA000,000,000,000,000,000,000,000 1042 DATA032,000,000,048,000,000,056,000 1043 DATA128,060,000,195,255,224,255,254 1044 DATA112,255,255,248,255,255,254,255 1045 DATA254,028,195,255,192,128,000,000 1046 DATA000,000,000,000,000,000,000,000 1047 DATA000,000,000,000,000,000,000,183 1048 DATA000,000,000,000,000,000,000,000 1049 DATA000,000,255,000,000,255,000,003 1050 DATA255,192,000,085,000,000,089,000 1051 DATA000,085,064,000,090,000,000,085 1052 DATA000,000,255,000,003,255,192,003 1053 DATA245,080,003,255,192,003,255,192 1054 DATA003,255,192,000,000,000,000,000 1055 DATA000,000,000,000,000,000,000,000 1056 DATA000,000,000,000,000,000,000,000 1057 DATA000,000,255,000,000,255,000,003 1058 DATA255,192,000,085,000,000,101,000 1059 DATA001,085,000,000,165,000,000,085 1060 DATA000,000,255,000,003,255,192,005 1061 DATA095,192,003,255,192,003,255,192 1062 DATA003,255,192,000,000,000,000,000 1063 DATA000,000,000,000,000,000,000,000 1064 DATA 256 8000 PRINT"[147][204]OADING [211]PRITES AND [205]ACHINE [204]ANGUAGE" 8010 PRINT"[208]LEASE BE PATIENT..." 9000 I=248*64 9010 READ A:IF A=256 THEN 9100 9020 POKE I,A:I=I+1:CK=CK+A:GOTO 9010 9100 IF CK<>19128 THEN PRINT"[197]RROR IN DATA (LINES 1000-1064)":STOP 10000 I=49152:CK=0 10010 READ A:IF A=256 THEN 10100 10020 POKE I,A:I=I+1:CK=CK+A:GOTO 10010 10100 IF CK<>139243 THEN PRINT"[197]RROR IN DATA (LINES 49152-50346)":STOP 10200 RETURN 49152 DATA 169,3,141,64,3,169 49158 DATA 7,141,21,208,169,217 49164 DATA 141,1,208,169,1,141 49170 DATA 28,208,169,10,141,37 49176 DATA 208,169,7,141,38,208 49182 DATA 169,0,141,39,208,32 49188 DATA 60,193,169,25,141,60 49194 DATA 3,169,250,141,250,7 49200 DATA 169,209,141,5,208,169 49206 DATA 2,141,41,208,169,44 49212 DATA 32,238,193,32,156,195 49218 DATA 169,0,141,61,3,141 49224 DATA 62,3,141,63,3,32 49230 DATA 174,195,32,141,196,169 49236 DATA 32,141,71,3,169,0 49242 DATA 141,72,3,173,60,3 49248 DATA 141,67,3,32,4,196 49254 DATA 32,238,193,206,67,3 49260 DATA 208,245,141,4,212,32 49266 DATA 150,192,173,64,3,201 49272 DATA 0,208,226,169,0,133 49278 DATA 198,169,0,141,21,208 49284 DATA 169,0,141,4,212,169 49290 DATA 0,162,0,157,0,208 49296 DATA 232,224,17,208,248,96 49302 DATA 173,30,208,141,69,3 49308 DATA 173,65,3,201,1,240 49314 DATA 87,173,66,3,201,0 49320 DATA 240,46,173,69,3,41 49326 DATA 6,201,6,208,11,169 49332 DATA 117,32,31,195,32,179 49338 DATA 194,76,46,193,173,2 49344 DATA 208,201,225,208,3,76 49350 DATA 37,193,206,2,208,173 49356 DATA 2,208,201,255,208,5 49362 DATA 169,0,141,16,208,96 49368 DATA 173,2,208,201,115,144 49374 DATA 3,76,37,193,173,69 49380 DATA 3,41,6,201,6,208 49386 DATA 11,169,117,32,31,195 49392 DATA 32,179,194,76,46,193 49398 DATA 238,2,208,96,173,3 49404 DATA 208,201,227,144,3,76 49410 DATA 37,193,173,69,3,41 49416 DATA 6,201,6,208,11,169 49422 DATA 80,32,31,195,32,202 49428 DATA 194,76,46,193,173,69 49434 DATA 3,41,3,201,3,240 49440 DATA 4,238,3,208,96,32 49446 DATA 151,194,206,64,3,32 49452 DATA 156,195,162,30,32,106 49458 DATA 195,202,208,250,165,162 49464 DATA 201,192,144,38,169,0 49470 DATA 141,2,208,169,229,141 49476 DATA 3,208,169,253,141,249 49482 DATA 7,169,0,141,40,208 49488 DATA 141,16,208,141,65,3 49494 DATA 141,66,3,169,0,141 49500 DATA 27,208,173,30,208,96 49506 DATA 201,128,144,44,169,80 49512 DATA 141,2,208,169,229,141 49518 DATA 3,208,169,252,141,249 49524 DATA 7,169,0,141,40,208 49530 DATA 169,2,141,16,208,169 49536 DATA 0,141,65,3,169,1 49542 DATA 141,66,3,169,0,141 49548 DATA 27,208,173,30,208,96 49554 DATA 201,64,144,44,169,139 49560 DATA 141,2,208,169,100,141 49566 DATA 3,208,169,251,141,249 49572 DATA 7,169,6,141,40,208 49578 DATA 169,0,141,16,208,169 49584 DATA 1,141,65,3,169,0 49590 DATA 141,66,3,169,2,141 49596 DATA 27,208,173,30,208,96 49602 DATA 169,218,141,2,208,169 49608 DATA 100,141,3,208,169,251 49614 DATA 141,249,7,169,6,141 49620 DATA 40,208,169,0,141,16 49626 DATA 208,169,1,141,65,3 49632 DATA 169,1,141,66,3,169 49638 DATA 2,141,27,208,173,30 49644 DATA 208,96,201,44,208,17 49650 DATA 169,132,141,0,208,169 49656 DATA 255,141,248,7,32,227 49662 DATA 194,32,112,195,96,201 49668 DATA 46,208,17,169,212,141 49674 DATA 0,208,169,254,141,248 49680 DATA 7,32,227,194,32,112 49686 DATA 195,96,201,32,208,113 49692 DATA 173,68,3,201,0,208 49698 DATA 115,173,70,3,201,0 49704 DATA 208,108,173,65,3,201 49710 DATA 0,240,38,169,2,141 49716 DATA 41,208,169,209,141,5 49722 DATA 208,169,250,141,250,7 49728 DATA 173,0,208,201,132,208 49734 DATA 8,169,138,141,4,208 49740 DATA 76,132,194,169,218,141 49746 DATA 4,208,76,132,194,169 49752 DATA 0,141,41,208,173,0 49758 DATA 208,201,132,208,18,169 49764 DATA 127,141,4,208,169,230 49770 DATA 141,5,208,169,249,141 49776 DATA 250,7,76,132,194,169 49782 DATA 232,141,4,208,169,230 49788 DATA 141,5,208,169,248,141 49794 DATA 250,7,32,1,195,169 49800 DATA 200,141,68,3,96,201 49806 DATA 95,208,5,169,0,141 49812 DATA 64,3,96,32,141,196 49818 DATA 169,33,141,4,212,162 49824 DATA 255,142,1,212,142,37 49830 DATA 208,32,106,195,202,208 49836 DATA 244,169,10,141,37,208 49842 DATA 96,32,141,196,169,129 49848 DATA 141,4,212,162,255,142 49854 DATA 1,212,142,40,208,32 49860 DATA 106,195,202,208,244,96 49866 DATA 32,141,196,169,129,141 49872 DATA 4,212,162,0,142,1 49878 DATA 212,142,40,208,32,106 49884 DATA 195,232,224,50,208,242 49890 DATA 96,169,33,141,4,212 49896 DATA 162,15,142,1,212,32 49902 DATA 106,195,32,106,195,202 49908 DATA 224,5,208,242,169,0 49914 DATA 141,4,212,32,106,195 49920 DATA 96,169,33,141,4,212 49926 DATA 162,5,142,1,212,32 49932 DATA 106,195,32,106,195,232 49938 DATA 224,20,208,242,169,0 49944 DATA 141,4,212,32,106,195 49950 DATA 96,248,24,109,61,3 49956 DATA 141,61,3,169,0,109 49962 DATA 62,3,141,62,3,169 49968 DATA 0,109,63,3,141,63 49974 DATA 3,216,32,174,195,56 49980 DATA 173,62,3,237,71,3 49986 DATA 141,69,3,173,63,3 49992 DATA 237,72,3,13,69,3 49998 DATA 144,25,169,32,248,24 50004 DATA 109,71,3,141,71,3 50010 DATA 169,0,109,72,3,141 50016 DATA 72,3,216,238,64,3 50022 DATA 32,156,195,96,160,0 50028 DATA 200,208,253,96,169,0 50034 DATA 141,41,208,173,0,208 50040 DATA 201,132,208,16,169,248 50046 DATA 141,250,7,169,127,141 50052 DATA 4,208,169,222,141,5 50058 DATA 208,96,169,249,141,250 50064 DATA 7,169,232,141,4,208 50070 DATA 169,222,141,5,208,96 50076 DATA 162,0,160,35,24,32 50082 DATA 240,255,173,64,3,24 50088 DATA 105,48,32,210,255,96 50094 DATA 162,0,160,6,32,240 50100 DATA 255,173,63,3,41,240 50106 DATA 74,74,74,74,24,105 50112 DATA 48,32,210,255,173,63 50118 DATA 3,41,15,24,105,48 50124 DATA 32,210,255,173,62,3 50130 DATA 41,240,74,74,74,74 50136 DATA 24,105,48,32,210,255 50142 DATA 173,62,3,41,15,24 50148 DATA 105,48,32,210,255,173 50154 DATA 61,3,41,240,74,74 50160 DATA 74,74,24,105,48,32 50166 DATA 210,255,173,61,3,41 50172 DATA 15,24,105,48,32,210 50178 DATA 255,96,32,16,196,72 50184 DATA 32,71,196,32,125,196 50190 DATA 104,96,32,228,255,201 50196 DATA 0,208,3,76,70,196 50202 DATA 201,133,208,7,169,25 50208 DATA 141,60,3,169,133,201 50214 DATA 134,208,7,169,18,141 50220 DATA 60,3,169,134,201,135 50226 DATA 208,7,169,13,141,60 50232 DATA 3,169,135,201,136,208 50238 DATA 7,169,9,141,60,3 50244 DATA 169,136,96,173,68,3 50250 DATA 240,5,206,68,3,240 50256 DATA 21,173,70,3,201,0 50262 DATA 240,3,206,70,3,162 50268 DATA 90,202,208,253,169,0 50274 DATA 141,4,212,96,173,4 50280 DATA 208,201,0,240,5,169 50286 DATA 0,141,4,208,32,112 50292 DATA 195,169,255,141,70,3 50298 DATA 76,81,196,173,141,2 50304 DATA 41,1,201,1,208,6 50310 DATA 32,16,196,76,125,196 50316 DATA 96,162,0,169,0,157 50322 DATA 0,212,232,224,25,208 50328 DATA 248,169,15,141,24,212 50334 DATA 169,16,141,5,212,169 50340 DATA 240,141,6,212,169,100 50346 DATA 141,0,212,96,256